(*operadores relacionales*)

program boolsYrelacionales;

var 

verdadero: boolean;
falso: boolean;

y: integer;
x: integer;

Begin

verdadero := verdadero OR falso;
verdadero := verdadero AND verdadero;
falso := falso AND verdadero;
falso := verdadero AND verdadero;

if (x<y) then x:= y;
if (x<=y) then x:= y;
if (x>y) then x:= y;
if (x>=y) then x:= y;
if (x<>y) then x:= y;

End.